unit unittextfiles;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils;

function CreateParametersFile(Path :String): Boolean;
function CloseParametersFile: Boolean;

const InitialStr:String = 'START OF PARAMETERS:';

var ParametersFile: TextFile;

implementation

function CreateParametersFile(Path: String): Boolean;
begin
  AssignFile(ParametersFile, Path);
  Rewrite(ParametersFile);
  Writeln(PArametersFile, InitialStr);
  //ParametersFile:=ArFile.Create;
  //ParametersFile
end;

function CloseParametersFile: Boolean;
begin
  CloseFile(ParametersFile);
end;

end.

